RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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3 1 0 MODULE RNODAT ( ! $ 
; § S IDENT = 'V04-000' 3 
; P $ %BL1SS32C 3 
: ¢ p Bobe ADDRESSING MODE (EXTERNAL =LONG RELATIVE ,NONEXTERNAL=LONG RELATIVE) : 
: 6 9006 d= ; 
3 7 0007 1 BEGIN 3 
3 8 0008 1 3 
: S 0009 1! F 
3 19 BiY ! Sateen inhi ch cine dinlncinhcininicinininde P4 
3 'e * 3 
; \ og 1 !® COPYRIGHT .c) 1978, 1980, 1982, 1984 BY * $ 
$ 1 1 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * . 
3 1% pote | ALL RIGHTS RESERVED. * 3 
; ' « 3 
; 16 B28 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
: 17 001 1 '® ONLY IN ACCORDANCE WITH E OF SUCH LICENSE AND WITH THE * ’ 
: 18 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * $ 
: 19 0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
3 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 3 
3 $3 pe] : i¢ TRANSFERRED. - : 
; 23 p058 1 in THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 24 0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; $2 b05¢ : re CORPORATION. . : 
: e? 0027 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; $8 oo5e ! . SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . : 
: $5 $030 1 is ® : 
4 31 0031 1 Vee e eee RRA AAAA REARS E EAA AAA EAE AAAA AAA ARERR EE 4 
3 7 ht 1! § 
ae oe 1 !¢¢ 3 
; 35 Bone : } FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : 
: 3 Ones : ABSTRACT: Obtains the system date and time in a standard format. ; 
: 38 0038 1: ; 
3 i 484 : ENVIRONMENT: Specific code for each of: TOPS-10, VMS, TOPS-20, and RSX-11M : 
: 41 0041 1 ' AUTHOR: R.W.Friday CREATION DATE: February, 1979 ; 
> 42 0042 1} : 
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16-Sep-1984 01:35: AX-11 Bliss-32 V4.0-74 
Revision History 122800-1 382 94:53:28 RUNOFFeS SRE RNODAT: grt: 
ms } pserre "Revision History’ 
ri : MODIFIED BY: 
hd 1 008 KAD00008 Keith Dawson 07-Mar-1983 
048 1! Global edit of all modules. Updated module names, idents, 
0043 3 copyright dates. Changed require files to BLISS library. 
0051 1 i- 
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RNODAT 16- -Sep-1984 AX-11 Bliss-32 V4.0-74 P 
v04-000 Module Level Declarations 12-8ep - 7 9}: 33: 3§ RUNOFF .SRCJRNODAT.BLI; “nee (33 


; ¢ 8 ! XSBTTL "Module Level Declarations' 

: 56 0054 1 / TABLE OF CONTENTS: 

Pah Be 

;. FW Soa9 1! 

:. 6 0058 1 ! INCLUDE FILES: 

ee) 0059 1! 

3 66 u 0060 1 IF ZOL ISS (G1 15336) hs 4s 

j- & U 0061 1 SIF XSW WITCHES TOPS¢ ) RTHEN 

; 664 U 444 1 LIBRARY ‘SYS:MONSYM ! TOPS=20 system symbol definitions 

oe ae U B26 1 REQUIRE "REQ: JSYSDEF!; 

: 66 U 0064 1 ELSE 

, 67 U 0065 1 LIBRARY ‘BLI]:UUOSYM'; 

; U 0066 1 FI , 

; 0067 1 XFI 

ee. 0068 1 

Som a U 0069 1 SIF XBLISS(BLISS16) XTHEN 

“eee u 0070 1 LIBRARY 'RSX:RSX11M'; 

PRs ¢ 0071 1 

; 0072 1! 

: 75 007 1 ! MACROS: 

toe | 0074 1! 

Feoge ig 0075 +1 

; 78 0076 1! 

; 79 0077 1 ! EQUATED SYMBOLS: 

: 80 0078 1! 

z 0079 #1 

., @ 0080 1! 

; 83 0081 1 ! OWN STORAGE: 

; 0082 1! 

; 8 0083 1 

; & 0084 1! 

; 87 0085 1 ! EXTERNAL REFERENCES: 

:. 8 0086 1! 

> 0087 1 iF 2Pt 155 Ot 18552) XTHEN 

: 90 0088 1 EXTERN 

; 6«o9 0089 1 WOSNUAY IAN 

; ¥ 0090 1 XF 

; 9 0091 1 

3 4 443 , GLOBAL ROUTINE rnodat (pieces) : NOVALUE = 

; «696 0094 1 !++ 

$ 44 98 } FUNCTIONAL DESCRIPTION: 

; WW 097 1! This routine obtains the system date and time, breaks it 

: 130 sits : up into its constituents, and returns the results. 

: 198 git : FORMAL PARAMETERS: 

; ! 

3 19 10 : PIECES is a vector in which the results are returned. | 

: 106 1046 1 ! IMPLICIT INPUTS: None 

: 10 105 1! | 

; 108 1 1 ! IMPLICIT OUTPUTS: None 

: 109 1 2 

: 110 108 1 ! ROUTINE VALUE: | 
| 
j 
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RNODAT ib-se -1984 01:35: AX-11 Bliss-32 V4.0-74 P 4 
v04-000 Module Level Declarations 14-Se 71882 04:33:28 RUNOFF .SRC RDDMT OL tet — (3) 
COMPLETION CODES: None 


! SIDE EFFECTS: None 


v0v 


low 
BEGIN 

RIF XBLISS(BLISS32) XTHEN 
LOCA 


time_32 : VECTOR (7,2); 
XFI 


RIF XBLISS(BLISS16) %THEN 
LOCAL 


ccc 


pieces (0), 
pieces i. 
pieces § ° 
pieces (3), 
pieces (4], 
pieces (5]; 


3 

° 

=] 

ow 
> 
a 
i) 
=< 

nhannnn 


WITCHES (TOPS20) 


> 
2 
“uu 

o— 


LOCAL 

year_month, ' Year,,month # (month 0 = January) 
monthday_weekday, ' Day of month,,day of week (day 0 = Monday) 
precees me, ! status,,time (time in seconds since 0 hrs.) 
emp; 


jsys_odcnv(-1,0 ; year_month,monthday_weekday,status_time ); 
- (year_month)<lh>; 

-(year_month)<rh> + 1; 

. (monthda weekday) th> + 1; 

.(status_time)<rh 

. temp/ 3600; 

-temp - (.hours * 3600); 
.temp/60; 

temp - (.minutes * 60); 


DONO WN 0 OONOAUEWN ( O OONOA UE WN OO OONOU EWN "OO ONOUS WN 


> 

° 

Cc 

3 

w“ 
Hnoonnnnn 


wr 


system_date, 
system_mstime; 
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LN eh et et tee BEBE BEE EE PAWN AAW POPINPIPONPPPNIN 2 PO OO a ae em OO 
uw 


Pelee el ele eel ela awl awl ala al ela ala al ole a lala laleolalololeloleolelelelelelelelelelelelelelolelelelelololelelolo) 


Se Se Se Be Be Be Be Se Be Be Se Se Be Se Be Fe Se Se Se Be Se Ge Se Se Fe Ge Ge Se Ge Ge Ge Ge Se Se ee Fe Se Se Se Se Ge Sse Se Ge Se Se Se Ge Se Sete Se Sete Sete ase 


eccccccccceccccccccccccccccccea 


tlO_mstime = 


1 
1 
1 
1 
1 
: 
: time_16 : VECTOR (8); 
; <F 

MAP 

pieces : REF VECTOR [6]; 

3 BIND 'Map PIECES into its constituents. 
g 


. 2 

RNODAT Jo~sen~ 1386 94:35:38 AX-11 Bliss-32 V4.0-74 

v04-000 Module Level Declarations 14-Sep-1984 13:07: RUNOFF .SRCJRNODAT.BLI; 

: 168 U 016 BEGIN : 
; 169 U 189 BUILTIN uuo; : 
: 170 U 168 REGISTER milliseconds; : 
: 171 U 18 uuo (0, MSTIME (milliseconds)); ; 
H 176 U 0170 milliseconds : 
; \t? U 1] END %; : 
; 125 ; 178 t10 date = ; 
: 477 U 0175 BUILTIN uuo; i 
; #178 U B78 REGISTER current_date; ‘ 
: 179 U 017 uuo (0, DATE (current_date)); : 
; 180 U 0178 .current_date : 
; 181 U 0179 END %; ; 
TR ORR oa : 
; 184 18 : 
3 183 U 0188 ZIF XBLISS(BLISS36) X%THEN : 
> «4186 U 0184 ZIF XSWITCHES(TOPS20) : 
TB She Sate 7 
> 189 U 0187 system_date = t10_date; 'Fetch system date. ‘ 
3 139 3 BigS system_mstime = t10_mstime; 'Fetch system time. ; 
: 136 U 0190 seconds = .system_mstime/1000; 'Convert to seconds, ‘ 
3 bk : B19 seconds = .seconds MOD 60; tand compute seconds into current minute. ‘ 
; 13? . o188 system_mstime = .system_mstime/(1000*60); !Toss away odd milliseconds and seconds. : 
; Hb 44 : B 132 MINUTES = .system_mstime MOD 60; !Minutes into current hour. : 
: 1” y 0197 hours = .system_mstime/60; ‘Current hour. : 
: 201 : ah 4 monthday = 1 + (.system_date MOD 31); 'Day of current month. : 
: i 030) system_date = .system_date/31; 'Drop days. : 
: 205 u 0 08 month = 1 + (.system_date MOD 12); ‘Current month. . 
: oF : 5 33 = year = 1964 + .system_date/12; ‘Current year. : 
i 909 0 oF xFI : 
: 2m U 0209 ¢ XIF XBLISS(BLISS16) RTHEN 3 
3 \ ¥ + GTIMSS (time_16); 'Get binary date as an 8-word vector. : 
: 214 U 021g INCR i FROM 0_TO 5 DO ; 
3 1g U a piecesC.i] = .time_16C.i]; ‘Copy it to PIECES. ‘ 
: 21 15 3 
: 1 1 ZIF XBLISS(BLISS32) XTHEN é 
; 13 i ; SYS TIM (time_32, 0); 'Get binary date as a short-word vector. : 
: 221 1 NCR i FROM 0_TO 5 DO ; 
3 : 31 we ; Ras &F = ,time_32C.1); 'Convert from short-word to long word. : 
: 224 2 : 
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; Routine Size: 


Name 
SCODES 


Module Level Declarations 


0934 ; RETURN; 
5 END; 'End of RNODAT 
TITLE 
. IDENT 
~EXTRN 
»PSECT 
0004 $98 ENTRY 
5 10 cs 00 SUBL2 
5 04 aC 00 0000 MOVL 
7E D4 BRee CLRL 
04 A oF 008 PUSHAB 
00000000G_ EF 03 FB 0000 CALLS 
Be G0018 CLRL 
6240 6E40 § 00017 1$ MOVZWL 
F7 50 05 F3 OO0IC AOBLEQ 
04 00020 RET 
33 bytes, Routine Base: $CODE$ + 0000 


0226 
0227 
0228 


1 END 
0 ELUDOM 


Bytes 


'End of module 


PSECT SUMMARY 
Attributes 
33 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, 


COMMAND QUALIFIERS 


1$-sep-1966 01:35:58 VARI BLisg=32_vé.047 


Roe 000\ 

SYSSNUMTIM 

SCODES,NOWRT,2 

RNODAT, Save R2 
6, § 

PIECES, R2 

-(SP) 

TIME 32 

#2, SYSSNUMTIM 


TIME _32C1], (R2)C1) 
#5, I, 1$ 


REL, CON,NOPIC,ALIGN(2) 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RNODAT/OBJ=OBJ$:RNODAT MSRC$:RNODAT/UPDATE=(ENH$:RNODAT ) 


33 cod 
_ BB:ba.3 
n: 6026 


Lexemes/CPU-Min: 21 


Memory Used: 


23 pages 


+ 0 data bytes 


' j 
2 eee eee 
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; Compilation Complete 
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